home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aeswinx2.s < prev    next >
Text File  |  1989-12-03  |  2KB  |  60 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST GEM bindings.
  5. ;* 12/03/89 - v1.4: New.
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Extended Window manager routines 2 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; winx_get
  18. ;-------------------------------------------------------------------------
  19.  
  20. _winx_get::
  21.           .cargs    #8,.handle,.field,.output.l
  22.  
  23.           link      a6,#-10
  24.           AControl  104,2,5,0
  25.  
  26.           moveq.l    #-10,d2   
  27.           lea       .handle(a6),a1
  28.           ACall     RET2HERE
  29.  
  30.           move.l    .output(a6),a1
  31. return4:
  32.           lea       -10(a6),a0
  33.           move.w    (a0)+,d0
  34.           move.l    (a0)+,(a1)+
  35.           move.l    (a0),(a1)
  36.           tst.w     d0
  37.           unlk      a6
  38.           rts
  39.  
  40. ;-------------------------------------------------------------------------
  41. ; winx_calc
  42. ;-------------------------------------------------------------------------
  43.  
  44. _winx_calc::
  45.           .cargs    #8,.i1,.i2,.i3,.i4,.i5,.i6,.output.l
  46.  
  47.           link      a6,#-10
  48.  
  49.           AControl  108,6,5,0
  50.           
  51.           moveq.l   #-10,d2    
  52.           lea       .i1(a6),a1
  53.           ACall     RET2HERE
  54.  
  55.           move.l    .output(a6),a1
  56.           bra.s     return4
  57.           
  58. ;         end of code
  59.  
  60.